www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_ajax_get_post_var_to_label.asp
<% strUrl="" v=Request.Form t=Request.Form.Count redim axx(t+1) redim bxx(t+1) For i=0 To t-1 axx(i)=Split(Split(v,"&")(i),"=")(0) bxx(i)=replace_huanhangz(UrlEncoding_x(Split(Split(v,"&")(i),"=")(1))) Next For i=0 To t-1 Fy_Url1=Request.ServerVariables("QUERY_STRING") Fy_a1=split(Fy_Url1,"&") hav_chff=0 for Fy_x1=0 to ubound(Fy_a1) Fy_Cs_name= left(Fy_a1(Fy_x1),instr(Fy_a1(Fy_x1),"=")-1) if trim(lcase(Fy_Cs_name))=trim(lcase(axx(i))) then hav_chff=1 exit for end if Next if hav_chff=0 then strUrl=strUrl&axx(i)&"="&bxx(i)&"&" end if Next '------- %>